تجميع قتيبة تركمlنıي ARZU 2.NE1‏ 
تعلم مع الأمذلة 
المثال الأول: 


لنضيف للمشرو ع خانة نص الع ومفكرة ٥٠‏ وزر تم لننتقل لخاصة «٠تامه‏ للزر ونغيرها إلى 
"اضافة" و إلى خاصة )×1 لخانة النص ونمسحها ولخاصة م1[ للمفكرة ولنضغط على الزر لذ قى 
خانة قيم هذه الخاصة ليظهر لك صندوق حوار» امسحهھ تماما ٹم اضغط )0. س yer‏ 
أضبط الآن خاصة 4ءلإهطه٠‏ لخانة النص على الصفر وللمفكرة على الواحد إن 4 ٠‏ إ١‏ 
كانوا بخلاف ذلك»عندئذ سيغدو الشكل كالتالي: 
انتقل الآن إلى حدث النقر للزر ثم ضع فيه السطر 

Memo1.Lines.Add (edit1.text); 


Edıt1.Clear; 
عا دما کا اض و اش طا ر‎ 
لعلك أدركت الآن وظيفة المنهج ل۸ التابع للخاصة وعم:1 التابعة للكائن‎ 
.Memo 
هذا المنهج كما يظهر من وظيفته يقوم بإضافة سلاسل نصية إلى المفكرة» لعلك | سە‎ 
تلاحظ الآن أن التركيز يكون على خانة النص عند أول تنفيذء ولكن في فيما بعد‎ 
تغير التركيز إلى الزر عند الضغط عليهء وفي كل تجربة عليك أن تعيد التركيز بنفسك» ولتجاوز هذه‎ 
العملية أضف السطر التالي للشفرة:‎ 


يعمل المنهج SetFOCUS‏ عل نقل التركيز للكائن المراد إعطاء التركيز له في التنفيذ. 
الان لو أردنا أن ننفذ هده الشفرة بمجرد الضغط على المفتاح Enter‏ دونİ‏ استخدام الفأرة ما علینا أن 
نضبط خاصۂ ا1 ںو۴٥‏ للزر على القیمة مںإ1 عندئذ ير تبط المفتاح ۲٥)"ع‏ مع هذا الزر. 


Edıit1. SetFocus; 


يمكننا کذلكک ربط المفتاح EsC‏ مع )0 ما من خلال الخاصة Cancel‏ للزر وذلك 
بإعطائها القيمة مں]. وبالطبع فهاتين الخاصتين لا يمكن ربطهما مع أكثر من زر 


یمکننا ربط الخاصة Enter‏ مع زر ما وحبد» وكذلك الخاصة „Cancel‏ 


المثال الثاني: 
لنضيف الان إلى مشروع جديد زرين نغير خاصة «٥نامه٤‏ لهم إلى "تكبير " و "تصغير "» ولنضيف 
الكائن SpinEdit‏ من الصفحة «Samples‏ ثم لنضع في حدث النقر للزر الذي کتب 


وفي الأخر السطر التالي: 
scaleby(100,spınedıit1. Value);‏ 


نفذ الأن البرنامج وضغط هذين الزرين و لاحظ النتائج. 

إن مهمة المنهج رطءاهء؟ هي التحكم بالكائنات الموزعة على الشكل حيث من 
خلاله يمكننا تكبير ها وتصغيرها وفق النسبة المئوية التي نريد» وذلك من خلال 
الوسيطين الممررين. 

حيث أحد هذين الوسيطين في متالنا هو عبارة عن القيمة التي توضع في الكائن انل٤مذم؟‏ وهي قيمة 
عددية حصرآ يمكننا تغير ها كتابة أو بواسطة الأزرار الصغيرة ة التي رسم عليها أسهم والمرفقة مع 
الكائن. 


scaleby(spinedit1.V alue, 100); 
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بالطبع عند زيادة القيمة داخل الكائن انلعمم؟ عن المائة فإن عمل الأزرار سينقلب»› 
ويصبح التكبير تصغيرأ والتصغير تكبيرآء ولمنع متل هده العملية علينا ضبط اأحد 


پيلعةل ١|‏ ن اه ق ية لادان إدع قلا فهل ءار 


تل کا لطبا ض. 


.MinValue 


لعلك لاحظت أنه عند التنفيذ وتكبير حجم الكائنات» فإذا ما خرجت هذه الكائنات عند حدود الشكل فإنه 
سيظهر لهذا الشكل أشرطة تمرير» يمكننا التحكم بهذه الأشرطة من خلال الخاصة o11إc؟oاںAء‏ 
فباعطائها القيمة میا۴ نلغي ظهور ها. 


المثال الثتالث؛ 
لنضيف لمشروع جديد عنصر شبكة الألوان 4نا6إهإهC٤‏ من صفحة وعامره؟» والعنصر 1ءره۴ من 
مل Stan‏ ولننقر نقراً مزدوجا فوق خاصة اللون للشكل إم1ه ليظهر لوح الألوان ثم لنختر منه اللون 
الأسود ليصبح لون الشكل أسود» وبعد ذلك لنضع في حدث النقر لشبكة الألوان 
السطرين التالين: 
Panel1.color: =colorgrid1. ForegroundColor;‏ 
Form1.color: =colorgrid1. BackgroundColor;‏ 


نفذ الآن البرنامج وضغط بأزرار الفأرة مرة بالزر الأيسر ومرة بالزر الأيمن ولاحظ 
عملي إن الضغط بالزر الأيسر ينفذ المنهج الأول وهو يعطي اللون الأمامي للأشكال 
والذي أسندناه هنا للوح 1ءمه٥؛‏ أما الضغط بالزر الأيمن ينفذ المنهج الثاني الذي يعطي 
اللون الخلفى وأسندناه للشكل. 

لنتحدت الأن قليلا حن آلكائنين الحدذ» والنيذاً الحديت عن شكة الالوان. 

يمكننا تغير شكل عرض هذه الشبكة من خلال الخاصة عمنإمكا40:إ6» التي تملك مجموعة من القيم 
تتحكم بشكل خلايا هذه الشبكة دون تغير في العدد» وأما العنصر 1عمه٥‏ فهو يعتبر من العناصر الحاوية» 
التي يمكن وضع عناصر أخرى غيرها بها كالأزرار وشابه ذلك» وتملك خاصتين ,]1ء 8ev‏ و 
Beek ue‏ اللتان تتحكمان بالإطار المحيط لهذا العنصر؛ كما يمكن التحكم بعرض هذا الإطار نم خلال 
llخاصةÃ Beve1Width‏ . 

المتال الرابع: 

أنضيف من الصفحة إعلمه)؟ عنصر المفكرة Memo‏ و Panel‏ 
وخمسة أزر ار داخل 1عمهم ولننتقل الاآن إلى الصفحة وع0اه5i‏ 
ولنختر منه انلعنصرڍj Open Dialog‏ و .SaveDialog‏ 

لنمسح الأن خاصة «ه0نامه٤‏ لعنصر [ءم ج ولنغير نفس الخاصة 
للأزرار إلى الأسماء كما يتضح في الشكل. 

ثم لنغير الخاصة rعمم]8Beve1‏ للعنصر e1عPan bvLowered all‏ 
والخاصة طال 1۷ء ء8 إلى الرقم 2. 

لعلك الآن تفكر بالطريقة لتحديد الأزرار كاملة» من أجل ترتيبها من 
الخيار Alignment Palette‏ في القائمة سم¡ ۷؛ وتحاول ن تحيطها 
باطار بو اسطة الفأرة» لكنك ستلاحظ أنه بمجرد النقر فوق اللوح 
1م ومحاولة إحاطة الأزرار بإطار فإن العنصر 1ء,ه۴ سيتحرك مع الفأرة» والحل في رأيك الآن هو 
أن تختارهم عنصراأ تلو الأخر بواسطة النقر فوقها بالفأرة مع الضغط على المفتاح ۴:ط؟» ولكن الطريقة 
الاسهل هو أن تعود إلى الطريقة السابقة وهي الضغط والسحب ولكن هذه المرة مع الضغط على المفتاح 
Ctrl‏ لتتم عملية التحديد داخل اللو P1 a‏ بطر يقة الضغط و السحب. 
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إن اللوح امم هو واحد من مجموعة كائنات تملك قدرة احتواء عناصر غيرهاء 


ومنھا ×ەbمuەGr‏ و N0800)‏ و ... والتي نستخدمها عادة عندما نرید تجمیع عناصر 
لها وظائق متقاربة. 


بقي عليك الآن أن تنظف عنصر المفكرة من الكتابة التي فيه كي تظهر كما في الشكل» وذلك من خلال 
الخاصة وعم حیث ند نضغط على الزر الموجود في خانة قيم هذه الخاصة ليظهر صندوق حوار نمسحه 


تم نضغط .O)‏ 

بقية الأن أن نضيف الأسطر البرمجية لهذه الأزرار وهي كالتالي: 

في حدث النقر لزر القص نضع memo1.CutToClipboard;‏ 

في حدث النقر لزر النسخ نضع memo1.CopyToClipboard;‏ 

في حدث النقر لزر اللصق نضع memo1.PasteFromClipboard;‏ 
في حدث النقر لزر الحذدف نضع memo1.Clear;‏ 

ا حدت لزر تحدید الكل م memol. SelectAll;‏ 


اتح والحفظ فحت E‏ أخرى سنذكر ها الا ذ, 
ضع الان في حدث النقر لزر الفتح السطرين التالين٠‏ 
If OpenDialog1.Execute then;‏ 


Memo1. Lines.LoadFromFile(OpenDialog1.FileName); 

في الحقيقة إن المنهج ءاںءء×ع هو عبارة عن دالة تعود بقيمة بوليانية» تكون هذه القيمة مں إ٣‏ إذا تم تهيئة 

صندوق الحوار بشكل طبيعي» وهو نفسه يعمل على تهيئة هذا الصندوق» ونحن الأن في هذا الشرط 

نختبر فيما لو كان قيمة هذا المنهج هي مں.!1 أم لا ففي حال كانت م1 ( أي التهيئة قد تمت بشكلها 
لصحي ) فن زق خرار ف لر و تك مه امات لمرد فا 

بنفس الطريفة تتم عملية الحفظ وذلك من خلال السطرين التاليين: 
If saveDialog1. Execute then‏ 
Memo!1. Lines.SaveToFile(saveDialog1.FileName);‏ 


والذي يعمل على فتح صندوق حوار الحفظ. 

نفذ الآن التطبيق وحاول أن تفتح الملفات النصية وحفظ ملفات أيضاء سترى أن هناك نقص في هذا 
التطبيق وأن هناك أمور غير طبيعية تجري» فأنت تنشئ تطبيق لفتح الملفات النصية وحفظها أي الملفات 
ذات اللاحقة 1×7» ولكنك تتفاجأً بأن صندوق حوار فتح يعرض أمامك جميع الملفات» كما أن عملية 
sS‏ 
متوفر» وينبغي أن يكون سهلاء ولكن هناك بعض الأمور التي تحتاج إلى مناقشة برمجية. 

أنهي التطبيق إن كان في طور التنفيذ ثم اختر عنصر صندوق حوار فتح» وانتقل إلى الخاصة )اا۴ 
التابعة له واضغط على الزر الذي يظهر في خانة قيم هذه الخاصة ليظهر لك صندوق له الشكل: 

اك لاحت من الل الخ ال بحت اتا کے ها Filter Editor‏ 
الصندوق حتى تتم عملية التصفيةء فيجب أن نخبره عن 
طریق ءصه.N‏ ۴1)6۲ عن التوسع الذي يجب أن يظهر في 
خانة "الملفات" في صندوق حوار الفتح عند التنفيذ» ثم في 
خیار F۴N٥ter‏ من هده النافذة يتم وضع نوع الملفات التي 
يجب فتحها في صندوق حوار الفتح وذلك بوضع اللاحقة ٠‏ ي 


المناسبة. DE Lancel Help‏ 
وبعد ذلك نضغط الزر )0» جرب الاآن تنفيذ التطبيق ثم 


تجميع قتيبة تركمlنıي ARZU 2.NET‏ 
ATT‏ بنفس الطريقةء ولكنك ما تزال في عملية الحفظ تحتاج إلى كتابة اسم اللاحقة 
عند اجراء غ ع وت ف ذل هذه العملية» ولكن قبل أن نبدأً بمناقشة هذه العمليةء لنلاحظ أنه 
عند فتح ملف ما وكان هذا الملف كبيراً فنحن بحاجة إلى واسطة للتنقل في الملف» ولعل الواسطة الأكثر 
سهولة والتي تکاد تكون الأو حيدة» هي أشرطة التمرير. 
انتقل الان لی خصائص المفكرة واختر منھا الأخاصة cScrollBars‏ ولنلقي نظرة غل قیم هده 
الاثتين معا وفي 0 اختیارنا a‏ عمودي فيجب ال اأخاصة WordWorp‏ (أو شا e‏ 
بالالتفاف التلقائي) القيمة ٥ں‏ والتي تعمل على ضبط النص بما يناسب عرض المفكرة. 
الان لنعود إلى مسألة اللاحقة التي نحتاج إلى كتابتهاء إن مناقشة كتابة اللاحقة م لا ليس بالمسألة الصعبة 
ولكن نحن نحتاج إلى بعض التركيز. 
انظر إلى الأاسطر التالية التي يجب وضعها بدلا من السطر في زر الحفظ السابق. 
If saveDialog1. Execute then‏ 
Begin‏ 
If Copy (Uppercase (saveDialog1.FileName),length(saveDialog1.FileName)-‏ 
TXT" then‏ .'=3,4 
Memo1. Lines.SaveToFile(saveDialog1.FileName)‏ 
Else‏ 
Memo1. Lines.SaveToFile(saveDialog1.FileName+'. TXT”)‏ 
Ends‏ 
بعد أن تأكدنا من جاهز ية صندوق حوار الحفظ بو اسطة الشرط الأول» وجب علينا التأكد من وجود 
التوسع أو ما نسمیه اللاحقة في الاسم» فإذا كان المستخدم قد كتب التوسع فيجب أن لا نضيفه و إلا فعلينا 
إضافته» وهذا ما قمنا به بالضبط في هذه الشفرة» فقمنا بأخذ الأحرف الأربعة الأخيرة بو اسطة الدالتين 
Copy‏ و Length‏ وحوأنا هده الأحرف ا الحجم الكبير» > ثم قارنا هده الأحرف ان كانت هي TXT‏ 
فعندئذ يكون المستخدم قد أدخل التوسع فلا حاجة لنا بإضافتهء وإلى فعلينا إضافة التوسع. 
وأما تحويل الأحرف إلى الحجم الكبير فذلك خشية أن نقارن مع الأحرف الصغيرة ويكون المستخدم 
يكتب بالحرف الكبير فعندئذ لن تتم المقارنة بشكل سليم وسيضاف التوسع حتى لو تمت كتابته من قبل 
المستخدم» فعند التحويل كل المدخل إلى حرف كبير والمقارنة معه نتخلص من هذه المشكلة. 


المثال الخامس؛ 
ابدا ر عا فار غاً وأاضف اليه من الصفحة Additional‏ ر الشبكة 6۲1۵1ع,1إ)؟ وزرين من نفس 


للزرين› أحدهم على القيمة و۷6 )8 و u‏ على القيمة 
۰8k)‏ ولنلاحظ تغیر شکل الزرین. 
لنضع ان في الزر الأول الشفرة التالية: 


For 1: =1 to StringGr1d1.ColCount DO 

StringGar1id1.cells [1, 1]: =1nttostr(D); 
For 1: =1 to StringGr1d1.RowCount DO 

StringGrid1.cells [1,1]: =inttostr®D; 

وفي الزر الثاني الشفرة التالية: 

For 1: =1 to StringGr1d1.RowCount DO 

For J: =1 to StringGrid1.RowCount Do 

StringGrid1.cells [1, J]: =1nttostr (1)+ ',' +Inttostr(); 
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نفذ الآن التطبيق وضغط الزر الأول ثم الثاني و لاحظ ما يجري في الشبكة. 
إن عنصر الشبكة أحد العناصر الهامة في بيئة نطم اه وتملك مجموعة من الأنواع ولكن نحن نتعامل 
الآن مع ل6 عمiء)S»‏ وهي نوع من الأنواع التي تتعامل مع السلاسل» أي صممت خلاياها وكأنها خانة 
نص» تملك هذه الشبكة عدد كبيراً من الخصائص يهمنا منها الآن ما يلى: 
0u‏ 01 : تعود هذه الخاصية بعدد الأعمدة في الشبكة. ۰ 
:۴]xed c10‏ لضبط لون خلايا العناوين (آي خلايا السطر الأول والعمود الأول). 
ئه ×۴: لضبط عدد أعمدة العناوين. 
1ه: (لا تتوفر في ضابط الكائنات وإنما أثناء تحرير الشفرة فقط) يعود برقم عمود ما. 
ااه (لا تتوفر في ضابط الكائنات وإنما أثناء تحرير الشفرة فقط) يمرر لها وسيطان من نوع 
إمعnte]‏ يدلان على سطر وعمود الخلية المراد التعامل معهاء ويسند لها قيمة من نوع ع1 لتملئ 
الخلية المحددة. 

ه٠‏ نفس الخصائص تكرر للاأسطر 


کک پک کک کک 


ه جرب الخاصة الأخيرة بأن تضع في حدث النقر للشبكة السطر التالي: 
Form1.caption: =1nttostr(StringGr1d1.col);‏ 


إذاً فإن الشفرة السابقة الموجودة على الزر الأول تقوم بكتابة رقم ترتيب الأعمدة (الأسطر) في خلايا 
السطر الأول الموافقة (العمود الأول)» وأما الزر الثاني فهو يكتب في كل الخلايا ترتيبها عمودياً وأفقياًء 
وبما ن عملية الكتابة نتم بحلقة ام۴ والعداد من نو ع إعgع)ہ1»‏ وخلايا الشبكة لا تقبل إلى String‏ لذلك 
نحن نحتاج إلى تحويل هذا العدد إلى سلسةء وذلك يتم عن طريق منهج التحويل 1.۲٠05٣‏ الذي يمرر له 
وسيط عددي ليعود به على شكل سلسة. 

يمكننا إجراء عملية التحويل هذه بشكل معاكس بو اسطة المنهج 51٠1,۲‏ الذي يحول السلسلة النصية إلى 
أعداد (بالطبع هذه السلسة يجب أن تكون تتالي أرقام وليست محارف أخرى). 

يوجد عملياً عددا لا بأس به من مناهج التحويل هذه والتي منها: 

.FloatToStr aصسكع‎ y وهو الدي يحول من سلسلة إلى نمط حقيقي‎ :t 0F 

.DateToStr aE y وهو الذي يحول من سلسلة إلى نمط تار يح‎ :trt00ate 

.٣ ع٣8) وهو الذي يحول من سلسلة إلى نمط وقت و عکسه‎ :trt0 1me 

وهناك صيغ أخرى عديدة من أجل إجراء التحويل القسري» ولكن ليس المقام هنا ذكر ها جميعا. 

بقية علينا في هذا المتال الإشارة للكائن الجديد الذي تعاملنا معه»ء وهو هذا الزر الغريب من نوعه 
م88 يملك هذا النمط من الأزرار كل مقومات الزر العادي الذي تعاملنا معه حتى الآن في تطبيقاتنا 
السابقةء بالإضافة إلى ثلة من الخصائص الإضافية التي قد نحتاجها في تعاملنا مع ار 
يملك مجموعة من الأزرار الجاهزة للتعامل معها في تطبيقاتنا والتي نختارها من الخاصة 0ء وكما 
نلاحظ في المثال منها زر )0 وزر ء۲ ... 

كما أنه يمكننا إضافة رسم مالهذا الزر من خلال الخاصية طمران والتي تملك في خانة قيمها زرا 
بالضغط عليه يفتح صندوق حوار فيه زر ءل م1 منه يمكننا تحميل الصورة التي نريد ومن ثم نضغط 
الزر )0 لوضع الصورة المختارة على الزر. 


تجميع قتيبة تركمlني ARZU 2.NET‏ 
المثال السادس : 
لنبداً مشرو ع فار ع ولنضيف إليه عنصر 1ءعمه٥‏ وثلاثة أشر طة تمرير إه118هإء$ وثلاثة لافتاٽ Lape]‏ 
من الصفحة إعلمStaء‏ ثم لنغير لون 1عمهم إلى الأسود ولنضبط خاصة Ma»‏ لأشرطة التمرير على 
5 ولنمسح خاصة دامج للافتات» حتى يبدو الشكل كالتالي: 
الآن لنستخدم الحدث ءعمهط) التابع لشريط التمرير الأول» ولنضع 
فيه السطرين التاليين: 


Panel1.color: 


=RGB(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position); 
Label1.caption: =1nttostr(ScrollBar1.Position); 


لنكرر الآن هذه الأسطر في نفس الحدث لباقي الأشرطة مع تغير رقم اللافتة وشريط التمرير في السطر 
الثاني من الشفرة السابقة بما يناسب رقم الشريط الموجود فيه. 
بعد الانتهاء نفذ التطبيق وحرك أشرطة التمرير ولاحظ تغير لون 1ءمه۴؛ وكذلك تغير عنوان اللافتة. 
لنبدأ الآن بشرح النقاط الأساسية في هذا المتال. 
إن المنهج ۸68 يستخدم لمز ج الألوان حيث يجب تمرير ثلاثة وسطاء عددية لهذا المنهج يمثل كل منها 
رقم تدر ج لأحد الألوان الأساسيةء حيث الوسيط الأول هو للون الأحمر والثاني للأخضر والثالث 
للأزرق» ونتيجة مز ج هذا المنهج لهذه الألوان ينتج اللون النهائي» ولذلك مررنا الوسطاء لهذا المنهج 
على أنها قيمة موقع المنزلقة على شريط التمرير بحيث عند تغير موقع المنزلقة يتم تغير القيمة العددية 
وبالتالي يتغير لون 1ءمه٥»‏ ومن أجل أن يحدث التغير بشكل مباشر وضعنا النص البرمجي في الحدث 
مه لشريط التمرير حيث يقع هذا الحدث بمجرد إجراء تغير في موضع المنزلقة. 
ولكن تدرجات الألوان التي تتعامل معها الحواسيب هي من 0 إلى 255 لكل لون من الألوان الأساسية» 
وبمز ج هذه الألوان تظهر غالب ألوان الطيف» ومن أجل ذلك ضبطنا خاصة × لأشرطة التمرير على 
القيمة 255 لكي لا تتجاوز المنزلقة هذه القيمةء والسطر التالي من الشفرة فليس له وظيفة إلا كتابة رقم 
التدر ج في اللافتة. 
لنتناول الآن الحديث عن بعض خصائص العناصر المستخدمة: 
1- شر يط التمرير : Scrol1Bar‏ 

۷ لKi:‏ وتملك قيمتين إحداهما تجعل شريط التمرير أفقي والأخرى تجعله عمودي. 

Change ~v‏ argeا:‏ يدخل بها رقم يضبط مقدار التغير الكبير لشريط التمرير» حيث التغير الكبير 

يقع عند الضغط داخل شريط التمرير وليس على الأزرار الخاصة لتحريك المنزلقة. 

۷ × 1: يوضع بها رقم لأكبر قيمة ستصل إليها المنزلقة. 

:M1 ١ ۷‏ يوضع بها رقم لأصغر قيمة ستصل إليها المنزلقة. 

:Pos1t10. ~۷‏ وهي لضبط موقع المنزلقة. 

:Sma11 ange ۷‏ يدخل بها رقم يضبط مقدار التغير الصغير لشريط التمرير» حيث التغير 

الصغير يقع عند الضغط على الأزرار الخاصة لتحريك المنزلقة. 
2- اللافتة: Labe[‏ 

۷ t0sizeںA:‏ بضبطها علی "ue‏ تأخذ اللافتة حجم تلقائي يناسب النص الموجود بها. 

~v‏ ansparentإآ:‏ بضبطها على مںإ1 تصبح اللافتة شفافة. 


